VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TestMethodFixtureNotify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private mMethod As MethodFixture
Private mMethodStart As MethodFixture
Private mEndCalled As Boolean

Public Sub testMethodNotify()
givenMethod
whenMethodIsRun
thenStartGivesMethod
thenEndCalled
End Sub

''
''
Private Sub givenMethod()
Set mMethod = New MethodFixture
End Sub

Private Sub whenMethodIsRun()
mMethod.forward Me
End Sub

Private Sub thenStartGivesMethod()
assert.equals mMethodStart, mMethod, "same method"
End Sub
Private Sub thenEndCalled()
assert.isTrue mEndCalled, "End called"
End Sub

''

'Callbacks
Public Sub StartMethod(method As MethodFixture)
Set mMethodStart = method
End Sub
Public Sub EndMethod()
mEndCalled = True
End Sub

'OPTIONAL METHODS
Public Sub setup()
mEndCalled = False
End Sub
'Public Sub teardown()
''
'End Sub
Public Function NumOfAsserts() As Long
NumOfAsserts = 2
End Function

'Private Sub Class_Initialize()
''
'End Sub
'Private Sub Class_Terminate()
''
'End Sub
